home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 July: Mac OS SDK / Dev.CD Jul 96 SDK / Dev.CD Jul 96 SDK1.toast / Development Kits (Disc 1) / OpenDoc Development Framework / ODFDev / ODF / Tools / Mac / ODFFindFile < prev    next >
Encoding:
Text File  |  1996-04-25  |  557 b   |  33 lines  |  [TEXT/MPS ]
  1. #
  2. #    File:        ODFFindFile
  3. #
  4. #    Contains:    Locate an ODF source file by its Name
  5. #
  6. #    Written by:    Steve Ussery
  7. #
  8. #    Copyright:    © 1996 by Apple Computer, Inc., all rights reserved.
  9. #
  10. #    Change History (most recent first):
  11. #
  12. #         <0>    02/14/96    sfu        initial version.
  13. #
  14. #    To Do:
  15. #
  16.  
  17. Set Exit 0
  18.  
  19. If {#} == 0
  20.     Echo "Usage: {0} filename"
  21.     Echo "       (Where filename is the name of an ODF source file.)"
  22. Else
  23.     Set FileLoc ""
  24.     Set FileLoc `Files -r -f "{ODF}" | Search /{1}/`
  25.     If {FileLoc} != ""
  26.         Echo "Open ∂"{FileLoc}∂"" 
  27.     Else
  28.         Echo "{1} not found!"
  29.     End
  30. End
  31.  
  32. Set Exit 1
  33.